home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / nu1n.zip / KEYPAD.BAS < prev    next >
BASIC Source File  |  1993-05-14  |  2KB  |  61 lines
  1. 100    ' -- SELECTED BASICA ROUTINES FOR THE IBM-PC    --
  2. 110    ' -- AND CLONES. FOR USE WITH ICOM CI-V SYSTEM  --
  3. 120    ' -- AND THE COVOX VOICE RECOGNITION SYSTEM     --
  4. 130    ' --                              BY NU1N                                      --
  5. 140    '
  6. 150    ' --         VOICE ACTIVATED KEYPAD EXAMPLE           --
  7. 160    '
  8. 1000    ' ------------------- CI-V CODE --------------------- 
  9. 1010    PRE$ = CHR$ (254) + CHR$ (254)
  10. 1020    EOM$ = CHR$ (253)
  11. 1030    TOADR$ = CHR$ (28)
  12. 1040    FROM$ = CHR$ (1)
  13. 1050    STFREQ$ = CHR$ (5)
  14. 1060    GOTO 6010
  15. 1070    '
  16. 1080    OPEN "COM1:1200,N,8,1" AS #1: COM(1) ON
  17. 1090    CODE$ = STFREQ$
  18. 1100    PRINT #1,  PRE$;
  19. 1110    PRINT #1, TOADR$;
  20. 1120    PRINT #1, FROM$;
  21. 1130    PRINT #1, CODE$;
  22. 1140    PRINT #1, CHR$(0);
  23. 1150    PRINT #1, CHR$(KHZ);
  24. 1160    PRINT #1, CHR$(HKHZ);
  25. 1170    PRINT #1, CHR$(MHZ);
  26. 1180    PRINT #1,  EOM$;
  27. 1190    FOR INDEX = 1 TO 200: NEXT INDEX
  28. 1200    COM(1) OFF: CLOSE #1 : RETURN
  29. 1210    '
  30. 3000    ' ---------------- FREQ CALCULATIONS ------------ 
  31. 3010    CFREQ = FREQ * 1000 * 10
  32. 3020    FREQ$ = STR$(CFREQ)
  33. 3030    IF CFREQ < 100000! THEN FREQ$ = "0" + FREQ$
  34. 3040    KHZ$ = MID$(FREQ$,6,2): HKHZ$ = MID$(FREQ$,4,2)
  35. 3050    MHZ$ = MID$(FREQ$,2,2)
  36. 3060    KHZ = VAL(LEFT$(KHZ$,1)) * 16 + VAL(RIGHT$(KHZ$,1))
  37. 3070    HKHZ = VAL(LEFT$(HKHZ$,1)) * 16 + VAL(RIGHT$(HKHZ$,1))
  38. 3080    MHZ = VAL(LEFT$(MHZ$,1)) * 16 + VAL(RIGHT$(MHZ$,1))
  39. 3090    GOSUB 1080: RETURN
  40. 3100    ' 
  41. 4000    ' -------------- ENTER FREQUENCY -----------------
  42. 4010    ' E.G.  "ONE FOUR POINT ZERO FIVE" -> 14.05 MHz
  43. 4020        CLS                          
  44. 4030        LOCATE 2,33: PRINT "ENTER FREQUENCY"
  45. 4040        LOCATE  12,37: INPUT "FREQUENCY", FREQ
  46. 4050            GOSUB 3010: GOTO 6010
  47. 4060         ' 
  48. 6000    ' ------------------- MAIN MENU -------------------
  49. 6010     CLS: OPT = 0: O$ = ""   
  50. 6020    LOCATE 2,31: PRINT "MAIN MENU OPTIONS"
  51. 6030    LOCATE 7,35: PRINT "1.  FREQUENCY"
  52. 6040    ' ** LIST OTHER OPTIONS HERE **
  53. 6050    LOCATE 9,35: PRINT "2.  QUIT"
  54. 6060    LOCATE 18,35: PRINT "ENTER OPTION"
  55. 6070    WHILE (LEN(O$)<1) OR  (VAL(O$)<1 OR VAL(O$)>2)
  56. 6080     O$ = INKEY$                                   
  57. 6090    WEND 
  58. 6100    OPT = VAL(O$)
  59. 6110    IF OPT = 1 THEN GOTO 4010
  60. 6120    IF OPT = 2 THEN CLS: END
  61.